home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / gwrapper30.lha / FinalWrapper3_0 / FinalWrapper.install < prev    next >
Encoding:
Text File  |  1995-01-29  |  4.1 KB  |  110 lines
  1. ; $VER: FinalWrapper.install 3.0 (29.01.95) by NDY's
  2.  
  3. (PROCEDURE copy
  4.   (IF (= @user-level 2)
  5.     (IF (= (ASKBOOL (PROMPT (CAT prefix file infix destdr postfix)) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT no yes))) 1)
  6.       (
  7.         (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  8.         (COPYFILES (SOURCE file) (DEST destdr))
  9.       )
  10.     )
  11.     (
  12.       (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  13.       (COPYFILES (SOURCE file) (DEST destdr))
  14.     )
  15.   )
  16. )
  17. (PROCEDURE setenv
  18.   (
  19.     (SET destdr "ENVARC:FinalWrapper")
  20.     (IF (NOT (EXISTS destdr)) (MAKEDIR destdr))
  21.     (SET envarcloc "ENVARC:Locale")
  22.     (IF (EXISTS envarcloc (NOREQ)) (DELETE envarcloc))
  23.     (SET fwdef "ENVARC:FinalWrapper.def")
  24.     (IF (EXISTS fwdef (NOREQ)) (DELETE fwdef))
  25.     (TEXTFILE (DEST "ENVARC:FinalWrapper/FWPath") (APPEND (SUBSTR destname 0 (- (STRLEN destname) (STRLEN (FILEONLY destname))))))
  26.     (RUN (CAT "SetLanguage " @language))
  27.   )
  28. )
  29.  
  30. (IF (= @language "deutsch")
  31.   (
  32.     (SET defdest "FinalWriter_D/FWMacros")
  33.     (SET hi "\nWilkommen zum Installer-Skript\nvon FinalWrapper 3.0!\n\n(c) 1995 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Schweiz)\n\nDas Programm ist SHAREWARE!\n(siehe Anleitung)")
  34.     (SET kick "Sorry, FinalWrapper benötigt mindestens OS2.0!")
  35.     (SET macro "Wählen Sie Ihr Final Writer Makroverzeichnis:")
  36.     (SET macrohelp "FinalWrapper wird in dieses Verzeichnis\ninstalliert, die Anleitung nach HELP:deutsch,\ndie benötigten Libraries nach LIBS:\nund ein kleines Hilfsprogramm nach ENVARC:")
  37.     (SET nosuchdir "Verzeichnis nicht gefunden:")
  38.     (SET alreadynewer "Diese oder eine neuere Version ist bereits installiert:\n\n")
  39.     (SET manual "FinalWrapperSmallD.Guide")
  40.     (SET dosetenv "Umgebungsvariable 'Language' setzen?\nWird für deutsche\nBenutzerführung benötigt.")
  41.     (SET yes "Ja")
  42.     (SET no "Nein")
  43.     (SET prefix "")
  44.     (SET infix " nach ")
  45.     (SET postfix " kopieren?")
  46.     (SET done "FinalWrapper 3.0 wurde\nerfolgreich installiert!")
  47.   )
  48.   (
  49.     (SET defdest "FinalWriter/FWMacros")
  50.     (SET hi "\nWelcome to the Installer script\nof  FinalWrapper 3.0!\n\n(c) 1995 by\n\nAndreas Weiss\nDorfstrasse 24\nCH-8212 Nohl\n(Switzerland)\n\nThe program is SHAREWARE!\n(see manual)")
  51.     (SET kick "Sorry, FinalWrapper needs at least OS2.0!")
  52.     (SET macro "Choose your Final Writer macro directory:")
  53.     (SET macrohelp "FinalWrapper will be installed to this\ndirectory, the manual to HELP:english,\nthe needed libraries to LIBS:\nand a small help program to ENVARC:")
  54.     (SET nosuchdir "Directory not found:")
  55.     (SET alreadynewer "This or a newer version is already installed:\n\n")
  56.     (SET manual "FinalWrapperSmall.Guide")
  57.     (SET dosetenv "Set environnement variable 'Language'?\nIs needed for all languages\nexept English.")
  58.     (SET yes "Yes")
  59.     (SET no "No")
  60.     (SET prefix "Copy ")
  61.     (SET infix " to ")
  62.     (SET postfix " ?")
  63.     (SET done "FinalWrapper 3.0 has been\nsuccessfully installed!")
  64.   )
  65. )
  66. (IF (< (SHIFTRIGHT (GETVERSION) 16) 37) (EXIT kick))
  67. (MESSAGE hi)
  68. (IF (= @user-level 0) (SET @default-dest (TACKON @default-dest defdest)))
  69. (SET destdr (ASKDIR (PROMPT macro) (DEFAULT @default-dest) (HELP macrohelp)))
  70. (IF (NOT (EXISTS destdr (NOREQ))) (EXIT nosuchdir destdr))
  71. (SET file "FinalWrapper.rexx")
  72. (SET destname (TACKON destdr file))
  73. (IF (EXISTS destname (NOREQ))
  74.   (
  75.     (SET env "FWInstall.temp")
  76.     (RUN (CAT "Version >ENV:" env " \"" file "\""e))
  77.     (SET sourcever (GETENV env))
  78.     (RUN (CAT "Version >ENV:" env " \"" destname "\""))
  79.     (SET destver (GETENV env))
  80.     (DELETE (TACKON "ENV:" env))
  81.     (IF (>= destver sourcever) (EXIT alreadynewer destver))
  82.   )
  83. )
  84.  
  85. (copy)
  86. (FOREACH "FW_Macros" "FW_#?.rexx"
  87.   (
  88.     (SET file (TACKON "FW_Macros" @each-name))
  89.     (copy)
  90.   )
  91. )
  92. (SET file manual)
  93. (SET destdr (TACKON "HELP:" @language))
  94. (IF (NOT (EXISTS destdr (NOREQ))) (SET destdr "ENVARC:FinalWrapper"))
  95. (copy)
  96. (SET destdr "LIBS:")
  97. (FOREACH "libs" "#?.library"
  98.   (
  99.     (SET file (TACKON "libs" @each-name))
  100.     (copy)
  101.   )
  102. )
  103. (IF (= @user-level 2)
  104.   (IF (= (ASKBOOL (PROMPT dosetenv) (HELP @askbool-help) (DEFAULT 1) (CHOICES (CAT no yes))) 1)
  105.     (setenv)
  106.   )
  107.   (setenv)
  108. )
  109. (EXIT done)
  110.